home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / shgmdemo.dir / 00020_Exit.ls < prev    next >
Encoding:
Text File  |  1995-12-06  |  521 b   |  25 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("ExitB")
  5.   repeat with x = 1 to 2
  6.     set the castNum of sprite 14 to the number of cast "exit0"
  7.     updateStage()
  8.     startTimer()
  9.     repeat while the timer < 15
  10.       nothing()
  11.     end repeat
  12.     set the castNum of sprite 14 to the number of cast "exit1"
  13.     updateStage()
  14.     startTimer()
  15.     repeat while the timer < 15
  16.       nothing()
  17.     end repeat
  18.   end repeat
  19.   set gNext to "quit!"
  20.   repeat while the soundBusy of 1
  21.     updateStage()
  22.   end repeat
  23.   go("start more")
  24. end
  25.